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ID - Invisible Debugger 



Invisible Debugger, commonly referred to as ID, is a 
utility program in the PDP~i time sharing system written to 
aid in the debugging of other programs. .An advanced ID has 
been written (April, ±966) to allow all operations to be 
carried out either directly on drum fields or on running 
cores o It uses the drum to allow the user full use of core (3) 
and drum field (s) for his program and to provide extra 
features, ID and the program being debugged each have a drum 
field to themselves* 

For clarity when typing examples are given herein, the 
typing done by the user of ID is underlined . Also, when 
needed the following symbols are assigned to the invisible 
flexo characters: 

carriage return 2. 
tabulation ->| 
space © 

backspace sc- 
upper case ih 
lower case ^ 



»2- 



Genera 1 Es sent la 1 Prepa rat Ion 

1. "When a time-sharing user requests ID he is automatically 
assigned one drum field to be used for his ID program. 
The user 3 s running field, which was assigned when the 
console was turned on* and the consolers pseudo drum 
fields will be used as the consolers drum and core 
fields whose contents may be examined and modified 

by the use of ID. The drum field assigned upon 
requesting ID is the consolers ID field an<3i may not 
be examined or modified by instructions to ID or by 
execution of a program* 

2. When entering ID, the user has either a binary tape 
containing the program and its symbols or a binary 
version of his program existing on his pseudo field I 
with its symbols still in the POSSIBLE SYMBOL TABLE 
located in the console's running field (i.e., in core GK 

a • Program on Field 1 and Symbol s in POSSIBLE) SYMBOL TABLE 
To inform ID of the meaning of the symbols used in 
the program type: 

2&TjL-v 

ID will then take a copy of POSSIBIE SYMBOL TABLE 
and put it into its own ID SYMBOL TABLE. To get 
a copy of the binary program from pseudo field 1 
and place it into the console's current field so 
that it can be executed, type: 

(NOTE: if changed, the limits M+l and M+2 should 
be initialized before the above command by typing 



E2!2S^^|]1..^2^g3^ ><- cn_Tage: To clear all available 
registers of the current field memory, type: 

This command will zero all the registers of the 
current field. Then to kill the previous symbol 
table, leaving only the initial PDP-1 instruction 
mnemonic s , type : 

To read in the binary tape containing the program 
or data* place the tape in the reader and type: 

u 
This causes ID to £ank a standard binary block 

format tape into the current field memory. To 

inform ID of the meaning of the symbols used 

in the program., place the symbol tape* ^hich was 

prepared by POSSIBLE or MIDAS SYMBOL PUNCH, in 

the reader. If the tape is a binary tape from 

MIDAS type: 

-rP. M » ,. ....»| Tn . J 

If it is an alphanumeric tape from POSSIBLE type: 

il 
ID will then read in the symbol tape and will 

merge the contents of this tape with ID 8 s own 
symbol table* After this, ID is ready for use 
and will be able to interpret constants and 
instructions typed either symbolically or numerically 
or both* 



3* Typing 

AM,-, 

px^eceded by the address" where the user wants his program 
to begin* ialll cause the program to start running* 
For example * typing: 

looflofl 

or 

will cause control to be transferred to absolute 
location 100 or symbolic location M a n respectively, 

4o To return control to ID after using a "G" command* 
press the console's CALL BUTTON* 



B° The , ± Current , ti ffie Id 

This new version of ID (April, 1966) allows operations 
to be carried out directly on drum fields or on the 
user* 3 running cores by making the field involved the 
"current field" » Initially IB is set up so that the user 9 s 
running core is the "current field". The "current field" 
is normally specified by the underbar comaandc, Tjrping 

x_ 

causes field x to become the "current field" „ If 
*£177j> x itself is usedj otherwise, bits 2-5 of x are 
used* Fields to 7 refer to the user*s normal running 
core* For time-sharing users, only and 1 are legal, 
and 1 is legal only if core i is assigned to the user* 
Fields 10-100 are illegal. Fields greater than {>) 100 
refer to drum fields. For example, typing 

103_ 

makes the user's pseudo field 3 the current field. 
Absolute fields are indicated by bit 12 • For example, 

I6l_ 

causes absolute field 21 to become "current"* Typing 
underbar (_) alone will cause the current field to be 
printed out* 
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Examination and Modification of Stored I nfonaatlpn 

&* Q,penir^ a register in the current field - In using 
ID* a fundamental idea is that, of opening a register 
so that its contents may be examined and/or changed * 
This may he accomplished b'j typing the twelve -bit 
address of the register in the current field to be 
opened,, either symbolically or as an absolute constant* 
followed by a slash* For example: 

reg+2/ 
or 

Wien the above is typed ID will immediately print a 
tabulation* then the contents of that register in 
the current field, followed by another tabulation • 
Continuing the example above: 

re %+2/ •>! add loc+3 "H 
(MOTE: Current drum fields not assigned to the user 
cannot be examined * } 

2* Examination of a register not in the current field - It 
is frequently desirable to open a register not in the 
current field so that is contents may be examined 
and/or changed • This is accomplished by typing a 16 
bit extended address of the register to be opened, 
either symbolically or as an absolute constant, followed 
by a vertical bar* The corresponding core module will 
become the "current field" „ For example: 

12345! 
will cause core 1 to become current, and open register 
2345- Typing 

1 reg| 
will open register reg in core 1 and malce core 1 current 
(NOTE: i^lGOOO in POSSIBLE and ID symbol tables. ) 
Like slash, when the above is typed, ID will immediately 
print a lower case, tabulation, then the contents of 
the register, followed by another tabu lat Ion . 
(NOTE: For time -sharing users, reference to core 1 
is legal only if core 1 is assigned to that user, ) 
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; and closing a. register - Once a register 
has been opened in either of the above manners its 
contents may be modified, if desired,, by typing 
the change either symbolically or as a constant. 
For example: 

reffl-2/ ->1 add loc+3 "H add , lpct$ 
(HQTE; System fields or drum fields not assigned 
to the user cannot be modified « ) 

A command character which may be helpful in modifying 
registers is Q« This has the value of the last 
quantity typed by ID or you* For example, to change 
the contents of register 50 from 155 to i57 type: 

50/ ~>f i55 ->! 8±g 
However, the modification is not placed in memory 
until the user types one of the three terminating 
characters - up arrow, backspace, or carriage return. 
The effect of each of these characters is given in 
the following tables 



-a 



Terminating Character 



^MMIHMHD 



Action 



mu—n n Hi. 



Returns carriage and modifies 
the contents of the open 
register if a modification 
has been typed., The register 
- becomes closed. If a vertical 
bar was used to open the 
register j, bits 2 through 5 
indicate the core module 
that becomes "current". 

Same action as carriage return 
^" except in addition the next 

sequential register in the 
current field is opened 
automatically (i.e, s current 
field plus the address is 
typed followed by a slash 
tab, and the contents of the 
register K If no register 
is open when the backspace 
is typed, the next sequential 
register in the current field 
is still opened , 
NOTE: If the current location 
is 7777, register of the 
current field will be opened 
next , 

Same action as backspace except 
1 this character opens the 

preceding register of the 
current field instead of the 
following one. 

NOTE: If the current location 
is 0, register 7777 of the 
current field will be opened next 

Once a particular register has been closed by use of either 
the carriage return, backspace, or up arrow, further 
modifications of that register is impossible until it is 
opened againo 
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Additional Interpretation of Register Contents - if, 
while a register is open, any one of the following 
characters is typed, the contents of that register 
will be reprinted in the indicated manner,* 

Character Interpre tation 

» types out quantity as a constant 

-* types out quantity as an instruction 

types out as If quantity is a 
concise code 

To illustrate the use of these interpretation characters, 
consider the following examples: 

££g±ifi2^ -H lac abc *| - -»| 20214? + ->| lac abc 

reffl- lOi/ ->J dac 6251 ~ -*j ubr 
where abc has the value 2147 « 

Examination and modification of a deferred register - Once 
an instruction has been typed out by ID, it is frequently 
desired to know the contents of the register addressed 
by the instruction* The control characters tab (-*| ), 
greater than (>), and special uses of slash (/) and 
vertical bar (j) provide this facility . 
a. After opening a register,, the character tab (•*( ) 
may be typed to close that register and open the 
register in the current field addressed by its 
instruction. This causes the location counter* 
a register internal to ID which contains the 
address of the last register opened, to be changed . 
An example follows: 

200/ -H lac abc -»| *l 
abc/ ~>j 30 ->j f~ 
abc+lAj -»! 
Modifications may be made to a register while it is 
opened during this procedure . For example: 
gQQ/ **i lac abc -»| lao abc+1 +1 
abc-fl/->| -»| 5 
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b* Like tab, the character > can he used to find out 
the contents of the register in the current field 
addressed by its instruction. Unlike tab, it just 
prints a tab and. the contents (not the address 
followed by a slash )» It opens, modifies, and 
closes registers in the same manner as tab* 
The current location counter is not changed. For 
example ; 

200/ ->| lac abc -*•( £ 30 -»! ±^ 

201/ -»| dac bop 
c* The character / when used while a register is 
open closes the register without making any 
modifications to it and types out the contents 
of the register in the current field which was 
last typed by you or TO* The location counter 
is changed to the new register opened* For 
example : 

200/ -*( lac abc -»| I ->\ 30 -*| ^ 

abc+l/ *| Q->\ 
or 

200/ -H lac abc -»| 100/ -»| dac 1 *| 
d« Like /, the character | when used while a register 
is open closes the register without making any 
modifications to it and types out the contents 
of the l6~bit addresses register which was last 
typed by you or ID* The location counter and 
the current field are both changed according to 
this new register opened* For example: 

1200/ -*| i+def -*j X -*| 2150 ->| ^ 

1 def+1/ -H 1567 -H (i»10000) 
Notice that core 1 was made the current field and 
the location counter was changed to core 1 location 
def* 






D« The Current Location Counter 

The current location counter is a register internal to 
ID which contains the address of the last register 
opened in the current fie Id . To re-open a register that 
has accidently been closed or to refer to registers 
near the one presently opened, the current location 
character, point (.), is used* Typing an address 
followed by a register opening character such as slash 
or vertical bar sets the current location counter to 
that address . Backspace, up arrow (f)> and tab 
automatically set this register to the appropriate 
address j carriage return does not affect it* Since 
point ( „ ) has the value of the current location, 
expressions such as dap .+1 may be typed into ID 
(although they will not be typed out in this format), 
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E» Synibols a nd the Sym bo l Tab le 

1* A symbol is a string of not more than six letters 
and numerals, containing at least one letter, and 
having a value associated with it* ID maintains 
a table of symbols and their values, and uses it 
to interpret symbolic words. 

2« Initially, ID*s symbol table contains 114 symbols, 
corresponding to PDP-1 instruction mnemonics, 
such as the operation mnemonics like l ac, tyo, etc, 
the indirect bit i, the shift mnemonics is, 2s, etc, 

3o There are five different ways of adding six character 
symbols to ID f s symbol table* 

a* A binary symbol tape may be prepared by POSSIBLE 
or MIDAS SYJffiOL PUNCH and entered into ID by 
typing IT- This causes the tape to be read and 
merges the symbols with ID'S symbol table* 
b« An alphanumeric or numeric tape may be prepared 
by POSSIBLE and entered into ID by typing T. 
This causes the tape to be read and merges the 
symbols with ID»s symbol table. 
Co Symbols may be defined directly by means of a 
close parenthesis as in the following example: 

2475 sm) -H 
The value 24?5 is then associated with sym. 
Symbols may be redefined in this manner, (Even 
the initial PDP-1 mnemonics may be redefined, 
but there is rarely any reason to do so.) The 
redefinitions can be in terms of their old value: 
If 

abc«5 
the command 

abc4-5 abcj 
will make 
abc«55 
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A symbol may be defined while a register is open 
by also using the close parenthesis. This would 
define the symbol to be the contents of the open 
register. For example, 

U "H 720307 ->| dpy) 
defines dpy to be 720307, 
d. Symbols may be defined to be equal to the current 
location by typing the symbol followed by a comma. 
This does not affect the contents of the current 
location. For example, if the register last 
opened was 50: 

52Z -H Xac 774 ~>[ 
by typing 

sym is defined as 50 but the register still 
contains lac 774, 

^ammmmmm umn ifch n» mm. 

SSSl +1 iac 774 **| 
e„ Symbols may also be defined to be equal to the 
12~blt address part of the last expx-ession typed 
by the user or ID by typing the symbol followed 
by an imply sign (d)* Thu3: 

500/ -M add 256 -»| conD 

sjL ~>( add con 
Thus, con was defined to be 256 . 

Symbols may be destroyed by using the commands K or 
syjgK where gym is a symbol. The command K kills all 
the symbols in ID s s table except the 114 PDP-1 
instruction mnemonics,, (if any of these were redefined, 
however, the original value is not restored, } The 
command symK kills only the particular symbol sym. 

If a symbol which has not heen defined is typed, ID 
types a capital (undefined) and forgets the symbol. 
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F « 3EfflB*BOfig£fl&gy£*^^ and Location 

la Instructions 9 constants, and locations, which collectively 
may be referred to as words, may be typed by the user 
at any time using any combination of numbers and/or 
defined symbols separated by appropriate connectives 
such as plus and minus signs „ In 13}, a symbol is any 
combination of letters and numbers not; longer than 
six characters, which contain at least one letter . 
(In most other versions of BET, symbols can not be 
longer than three characters • ) 



The connectives used in forming words are listed in 
the following table along with their meanings. 



Connectives 



A 



adds value of next symbol 
or number to word* 

adds value of next symbol or 
number to word* 

subtracts value of next symbol 
or number to word* 

ands value of next symbol or 
number onto word* 

ors value of next symbol or 
number into word. 



Thus, 

add 10 

lac 214? 

lac i adr (where adr has previ- 
ously been defined as 
200) 

dpy-i 

claVcliVclf^^ 
law 144 



Yields 
409010 
202147 
210200 

720007 
764207 
700144 
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&- Ey^t luat ion of Words 

lo Often it is desirable to be able to evaluate a word 
that is to be used in a program without actually 
affecting memory. This 'may be done at any time without 
opening a register by simply typing the word to be 
evaluated followed by the appropriate Interpretation 
characters (see section C-4)„ When this is done, ID 
will automatically type out the appropriate interpretation 
of the word followed hy a carriage return, 

H> Notes on Symbolic Type -Out 

A given register, containing only an octal number* can 
be interpreted symbolically in more than one way. Thus, 
ID may sometimes type out instructions you may not expect, 

I* If several symbols are defined as having the same 
value, ID chooses to print out the last one defined, 
£ f £l£J> ls typed into ID, it will be printed back 
as o pr S o 

2 Symbols of four characters or more will only be printed 
out as the first three characters . Thus, if two symbols 
abc and abed are defined as different octal values, 
ID will print both of them symbolically as abc, One 
may type the interpretive character to find which is used* 

3° Expressions with negative terms will not type out as 
they were typed in; for example* if ret-adr-4-5, then 
ret~l typed in will be typed out as adr^k Similarly, 
ID recognizes the current location symbol ( «, ) but 
never prints it out, 



5, 
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The symbols Is, 2s, 3s, 0909 9s are defined, but have 

been placed in a special part of the symbol table so 

as to be printed out only on shift and rotate instructions 

Operate group instructions and skip group instructions 
type out with inclusive op signs when necessary; for 
example* 76240? types out as claVcllvclf 7, Thus, if 
a register contains data which happens to be in this 
range* the resulting type-out may be in terms of 
these instructions, 

6* Numbers beginning in 77 type out as negative., 

1* Although it has been assumed so far that ID normally 
prints out the contents of registers as instructions 
with s^bolic addresses and normally interprets 
constants as unsigned octal numbers, a provision 
has been made to alter this state of affairs 
with a considerable degree .of flexibility. 

2, There are several different register opening characters 
from which to choose according to the type-out mode 
desired „ 

Register Opening 

Characters Meaning 

/ Types out the contents of the 

preceding 12 bit address number 
as symbols or constants,, 
according to the mode, 

I Types out the contents of the 

preceding 16 bit address number 
as symbols or constants* according 
to the mode* 

f Types out the contents of the 

preceding 12 bit address number 
as constants, but does not 
change the mode. 
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Register Opening 

] Types out the contents of the 

preceding 12 bit address 
number as symbols* but does 
not change the mode* 

( Does not type out the contents 

of the preceding 12 bit address 
but puts ID into the type -in 

mode starting at that address, 

3v Type -Out Mode For Instructions - By typing one of 
two commands to ID* the normal mode of printout of 
register contents may be controlled » 
a* Symbolic type-out mode is the most often used 
and the one in which ID is initially* This mode 
is obtained by typing a capital So The contents 
of registers will be printed out as symbols, 
D * Constanta type-out mo de is obtained hy typing 
a capital C\ In this mode, the contents of 
the registers are typed out as numbers. 

*• ?.ype-In Mode Is obtained hy opening a register with 
an open parenthesis (()• In this mode, ID does not 
print out the contents of the register at all; it is 
a convenient mode for typing short programs or parts 
of programs. This mode is left by typing a. carriage 
return; however, backspace, up arrow, and tab keep ID 
in type-in mode and open the appropriate register. 
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5* Tme-out Mode for Address of Registers - By typing 
one of two commands to ID* the mode of printout of 
register addresses (as a result of tab, backspace » 
up arrow, etc*) may be set* 

a- Relative mode Is the one in which ID is initially. 
By typing capital R the mode can be obtained again 
so that addresses will be typed out symbolically * 
ex, adr+10/ -*•} lac abc ->| *~ 
adr-KLi/ ~>| dac x42 -*-( 
b« Octal mode causes the register addresses to be 
typed out as numbers. It is obtained by typing 
a capital 0. 

6* Constant print, control - Qy typing one of the following 

two commands, the normal mode for the printout of 

constants may be controlled. 

Command Resu lting , Action 

H all constants will be printed 

out as octal numbers - hoetal mode 

U all constants will be printed out 
as decimal numbers - unhoctal mode 

Input Radix Control 

The commands H and u discussed in the preceding section 
control the radix used by ID to interpret all numbers typed 
out by the users « The character period (.) is used to force 
interpretation of input constant as decimal regardless of 
the current radix . If the input constant is not immediately 
followed by a period, it is interpreted as octal regardless 
of the current constant radix* The character single quote ) 
causes the last three characters typed in to be taken as 
their sqose code value * This applies only to letters or 
numerals* The character double quote ( rt } causes the first 
three characters typed in to be taken as their sqoze code 
value. This applies only to letters or numerals . 
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Ko Special Registers 

The capital letters In the following table indicate special 
consecutive registers, Khlch are internal to ID* These 
registers control some of the main functions of IDj 
they may be referred from any field and are opened and 
modified in the same manner as a register in the current 
field. 

Capital letter 

in their .Location Order Register Contents 

A the stored accumulator of 

the program 

I the stored 10 register of 

the program 

X the location of ID'S execute 

register 

G the stored program counter 

of the program; the overflow 
flip-flop is stored in 
bit 0, the extend mode 
in bit 1, 

F the stored flags of the program 

M the mask for word searches 

M+l the lower limit for word 

searches, save and unsave 
fields, and special uses of 
yank, tape, verify tape, 
punch data blocks, and zero 
memory o 

M+S the upper limit for word searches, 

save and unsave fields, and 
special uses of yank tape, verify 
tape, punch data blocks, and 
zero memory, 

B ~"\ breakpoint locations 
B+l ' 

3-1-2 



<r 



B+3^ 
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The characters A 5 2 9 M, and B when pi>eceded by a single 
argument deposit the argument in the corresponding registe: 
For example., typing 

17777A 
deposits 17777 into I'D 1 s internal register A, containing 
the stored accumulator for the program,. 

The usage of the above control characters ^ill be 
more fully explained in the sections to follow*. 
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k* Assignment and B&assig^iment of 10 Devices and Drum JFlelds 
ID can assign or deassign 10 devices and drum fields 
independent of the user's program » In this way, the 
user can be assured of obtaining essential equipment 
before starting his program running. The capital letter 
F when preceded by one or two arguments provides a 
convenient way to assign or deassign equipment directly 
from ID. The table of possible request if found in 
the Assignment .^^nd .Reassignment of In~Qut Equipment a n d 
i?£^g,^ iel(Ss Memo (PDP-31). The mnenonie or concise code 
indicating the device requested is the argument immediately 
preceding the F command. Thus* typing o£ where c^ is a 
mnemonic or concise code indicating the device requested, 
will request assignment of that device to the user's console, 
^F is equivalent to executing the following three instructions 

law flexor or lawo< 

cli 

arq 
(NOTE: The arq is executed without reference to the special 
internal registers A and I of ID, ) 

In certain cases the 10 must contain additional information 
about the device; thus the F command must have two arguments. 
Typing 

will put x into the 10 and the concise code for the 
mnemonic of the device requested into the AC and then 

execute an arq. If the assignment or deassignment of 

m The capital letter F when not preceded by an argument 
refers to ID« s special internal register, F, containing 
the stored flags of the user's program. 
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fields is successful, then two carriage returns tailll 
occur. On the successful field assignments that return 
information in the AC, ID prints out the information 
in the right 6 bits and restores the AC to its contents 
before the request was made. For assignments and 
deassignments of in-out devices (not fields) two carriage 
returns will be returned only on successful assignments ♦ 
[On unsuccessful assignments, only one carriage return 
is given. ] An assignment will be successful if the 
field (s) or device requested is not already assigned 
or if the assignment is already in effect. 

M. Breakpoints 

One of the most powerful features of ID is the ability 
to insert breakpoints in programs. In testing a large 
program, It is frequently convenient to use breakpoints 
to interrupt the computation so that partial results 
may be examined or the state of the program determined. 
Breakpoints may be set up at a location in the user*s 
program by two methods : 

1. Typing 

adrg 
causes ID to set up a breakpoint in the current field 
at location adr. Only one breakpoint can be inserted 
at a time by this methodi the address preceding the 
B will be deposited into the special register B. 

2. Pour special x*egisters, B, B+l, Bf2, and B+3, can 

be used to contain the addresses of breakpoints. No 
break location is indicated by an overbar (~); 
initially all four registers contain overbars. For 
example : 

§±1/ -H ~ -M ad£ 
Hils puts a breakpoint at location adr in the user's 
program. If the user transfers control to his program, 
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and the instruction in register adr is reached, 
computation will cease and control will be returned 
to IB, which will type out the register location* 
a close parenthesis, tab, and the original contents 
of the register. At this point, the user may examine 
the accumulator, 10, and/or any other register and 
make modifications as he pleases. A breakpoint 
remains in the location specified until it is 
removed by clearing the breakpoint register 
containing the address. All breakpoints may be 
cleared by typing B~. If the user wants to clear 
only one breakpoint, he puts an overbar or a minus 
zero in the breakpoint register containing the 
break address to be cleared, 

CAUTION : The location selected as breakpoints must 
not be registers whose contents are modified by the 
program under test, since ID transplants their 
contents and substitutes specific transfer commands. 



Go (G), Proceed ..,(P),. and Execute (X) 

1* The instruct Ion adrG, where adr is an address in 
the user 1 3 program, is used to start the user^ 
program running at location adr. 

2. if a breakpoint trap occurs* control is transferred 
to ID, To continue operation of the user's program 
from the point at which the break occurred, the 
command P is used* Even if the last breakpoint 
encountered has hoen deleted or moved, P still 
proceeds from the point where the break actually 
occurred . 

3. nP, where n is a positive numeral, will cause ID to 
proceed from a breakpoint trap, and go past the 
breakpoint n times before breaking again. This 
multiple proceed consnand Dorics only for the breakpoint 
whose address is in register B* 

4. Single instructions may be executed directly by ID; 
control need not be returned to the user's program. 
There are two « possible x«ays to execute single 
instructions in ID: 

a. Typing 

bX 
causes the instruction b to be placed in the 
address specified by the contents of the execute 
internal register X and then to be executed . 

b. Typing 

a<bX 
causes the instruction b to be placed in address 
a and then to be executed • The internal register X 
does not change* 
Normally there are two carriage returns after X; if the 
PC is incremented by two (that is, the instruction skips), 
X will return the carriage a third time. If the return 
PC is not the same as the original PC incremented by one 
or two, control is transferred to the location specified by 
the PC. Otherwise control is returned to ID. 
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0* Word Searches 

A valuable feature of ID is its search facility, Three 
kinds of searches can be made; these types are controlled 
by the commands N, W, and E, and they all use the special 
internal registers M, M+l, and M+2. 

1. The three types of searches and their respective 

commands are: 

a. wordW - The word search causes ID to search 
the current field for and print out all the 
registers* between the limits in M-M an& W?2 
inclusively, containing the given word. 

b* wordN - The non-word search causes ID to 
search the current field for and print out 
all the registers, between the limits in 
M+l and M-J-2 inclusively, not containing the 
given word. This is most frequently used in 
ON jl the search for non-zero memory* 

c. adrS - The effective word search, causes ID to 
search the current field for and print out 
all the registers, between the limits in M-KL 
and M-J-2 inclusively, effectively addressing adr . 
If the user is in extend mode, (bit i of the PC 
on), indirect addressing chains for effective 
address searches will be carried to a depth of 
1; otherwise they will be carried to a depth 
of 10, at which point ID will give up.^ An 
E search will never print out skp, sft, law, 
iot, lh s or opr instructions. This type of 
word search is valuable for locating incorrect 
instructions which are modifying the program. 
* f a 3S& instruction is suspected, try ,1da adrN 
in addition to adrjl. 

& An E-seareh with greater depth than 10 octal might 
take a long time and an E-search with no restriction 
on depth might get caught in an infinite chain like: 

adr, lac i abc 

abc, jmp i adr 
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The special internal registers for word searches are 

M, M+l, and M+2j the use of these- registers is explained 

in the following table. 

Contents 

The mask register contains the 
value of the mask used in 
word searches* During t?ord 
searches, only the bits masked 
1 in register M are compared. 
Initially M contains -0; thus 
all bits are compared unless 
the register is modified. 

M+l The lower limit for the word 

search is stored in the M+l 
register* Initially, M+l contains 
0; thus the search will begin 
at unless modified, 

M+2 The upper limit for the word 

search is stored in the M+2 
register. Initially* M+2 
contains 7777; thus the search 
will end at, 7777 unless modified. 

3* Special commands may be used to modify the contents 
of the special internal registers H s M+l, and M+2, 

c 

initialises the contents to -0 in M, In M+l, and 
7777 In M*2, 

fa<laM 
puts fa and la in M+l and M+2 respectively. M remains 
unchanged. To change M, type 

§M 
where a is the mask desired for M. 

4. There are two ways to print a block of registers: 
a- Set the mask to zero and set up M+l and M+2 to 

enclose the area to be printed. Then search for 

any word, 
b. If irrelevant parts of memory happen to contain 

zero, merely do a N- search for zero. 
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P. Zero 

Often it is valuable to zero all or parts of a field so 
that irrelevant parte of the field will contain zero. 
The following commands may be' used: 

Comman d Meaning 

Z zero all of the current field 

fa<laZ where fa and la are i2-bit 

addresses limits for the sero 
command * The registers of 
the current field betoeen fa 
and la inclusively are zeroed 
by this command. 

zzZ where x is the field number 

for the sero command. The 
field specified is zeroed 
between locations in M+l and 
M-i-2 inclusively. The current 
field is not changed ♦ 
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Q. Yank 

In the Preparation Section of this memo (part A)., the 
user was instructed to use the command "Y" to read into 
the current field a binary tape prepared by POSSIBIiS or 
MIDAS. For convenience, other variation of this command 
may be used. They are: 

Command Meaning 

Y Read a tape in POSSIBLE or 

MIDAS binary block format 
into the current field between 
the locations specified by 
M+l and M+2 inclusively. The 
core modules specified in the 
data block origins isill be 
ignored. If a checksum is 
encountered, the process will 
stop. It is then possible to 
move the tape back one block, 
restart the reader, and type 
"c n to continue reading, if 
desired, 

xY x is the field number into 

which a tape in POSSIBLE or 
MIDAS binary block format is 
read. Otherwise, the command 
is the same as Y alone. The 
limits of the yank are inM+1 
and Eh-2 as above. The core 
modules specified in the data 
block origins will be ignored. 
If a checksum is encountered, 
the process will stop. It is 
then possible to move the tape 
back one block, restart the 
reader, and type w c" to 
continue yanking, if desired. 

fa<laY where fa and la are 16-bit 

address limits for the yank 
command. The data block will 
be checked against core field 
specified in the block origin. 
Only words with extended 
addresses from fa to la inclusively 
will be yank in. The process 
will stop on encountering a 
checksum. To continue, move 
the tape back one block, 
restart the reader, and type 
H c" to continue yanking. 
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xV 



R* Verify 

Another featuz*e of ID is the ability to verify the program 
currently in core or on a drum field with the original 
binary tape. The capital letter V is used as the command 
in the following ways: 

Command Meaning 

V Read a binary tape in P0SSI3LE 

or MIDAS binary block format; 
the core modules specified in 
the data block origins will 
be ignored. The words x^-ead 
in are compared against the 
current fields words between 
locations specified by M+l 
and M+2 inclusively. Ho 
■ change is made to memory; 
any discrepancies are typed 
out as: 



location/ 



tape 



memory 

If a checksum error is encountered, 
the process will stop. It is 
then possible to move the tape 
back one block, restart the 
reader, and type n c" to 
continue reading, if desired. 



x is the field xximber whose 
contents is to be compared 
against the tape. The field 
may be a core field or drum 
field. Otherwise, the command 
is exactly the same as V alone. 
The limits of the verify are 
in M+l and M+2 as above. No 
change is made to memory and 
any discrepancies are typed 
out as: 



location/ 



tape 



memory 

The program will stop on encountering 
a checksum. To continue, move 
the tape back one block, restart 
the reader, and type fl c" to 
continue reading and verifying. 
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Comniand Seining 

fa<laV ^here fa and la are 16 bit 

address limits for the verify 
command. The data blocks will 
be- checked against core field 
specified in the block origin. 
Only words with extended addresses 
from fa to la inclusively will 
be checked. Ho change is made 
to memory and any discrepancies 
are typed out as: 

extended location memory tape 

The process will stop on encountering 
a checksum. To continue, move 
the tape back one block, restart 
the reader and type ,? c" to 
continue verifying. 



& 
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s » Save and Unsave Drum Fields 

Another valuable feature of ID is the ability to save 
an image of a program on another drum field* so that 
it may be restored at some future time. The capital 
letters S and v, when preceded by additional information, 
are command to save and unsave drum fie Ids. m The 
special internal registers m+i and M+2 indicate the 
limits of the transfer for the current field. The 
two basic commands and their meanings are: 

gamand Me aning 

£S Save on field n f " - an image 

of the current field between 
the limits in M+i and M+2 
is written onto drum field f 
between the limits also in 
M-KL and M+2. This operation 
does not affect the contents 
of the current field. Field 
"f H must foe assigned to your 
console si it must be a number 
from 1 to 17o when referencing 
a pseudo field, or from 4i A to 
57o when refei'eneing an 
absolute field. 

*U Unsave field "£" - the contents 

of the current field between 
the limits in M-M and M+2 are 
replaced by the contents of 
drum field f between the limits 
'In M+i and M+2. The contents 
of drum field f are not affected 
by this operation. Field "f" 
must either be an absolute system 
field or a field assigned to 
your console; thus it must either 
be a number from 1 to i7« when 
referencing a pseudo field 
assigned to your console, a 
number from 4io to. 57© when 
referencing an^absolutJe field 
assigned to your console, or 
a number from 6la to 66q when 
referencing an aosolute system 
field. 

The capital letters S and U when not preceded by a 
character mean symbolic and unhoctal. (See section 
1-3 and 6.) "~ 
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Two other commands to unsave and save drum fields are 
available for swapping information to a different 
location on the drum field and the current field. These 
commands are: 

Cpcgngjid Meaning 

x<fS Add "x" to the origin of the 

area on field f - an image 
of the current fie3.d between 
the limits in M-J-i and M+2 
is written onto drum field f 
between the limits "x" plus 
the contents of M+l and "x M 
plus the contents of M+2. 
Thus the limits in $H-1 and 
M+2 apply only to the current 
field, not field "f". Field 
"f u must be assigned to your 
console j it must be a number 
from 1 to ±7q when referencing 
a pseudo field or from 4lo 
to 57a when referencing an 
absolute field. 

x<fU Add n x° to the origin of the 

area unsaved from field "f" - 
the contents of the current 
field between the limits in 
. M+l and M+2 are, replaced by 
the contents of drum field f 
between the limits "x" plus 
the contents of M+l and c, x" 
plus the contents of M+2. 
Thus* the limits in 15+1 and 
M+2 apply only to the current 
field, not field "f". Field 
"f M must either be an absolute 
system field or a field assigned 
to your console,* thus, it must 
either be a number from 1 to 
ITg when referencing a pseudo 
field assigned to your console, 
a number from 4l« to 57 ft ^nen 
referencing an aSsolute°field 
assigned to your console, or 
a number from 6lo to 66* when 
referencing an ao so lute system 
field. 
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An example of using the latter commands appears below 

1DQ<200M 

moves locations 100 - 200 inclusive from the current 
field to locations 120 - 220 of field 5* To restore 
this program material at a later time, the user would 
type: 

i00<200M 



and thus move locations 120 - 220 of field 5 to 
100 - 200 of the current field* 
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Another feature of ID is the ability to heard and read 
symbols, so that the symbols may foe stored and restored 
with the associated program. The capital letters 
H and R, when preceded hy additional information, are 
commands to hoard and read symbols** The two basic 
commands and their meanings are : 

Command Meaning 

fH Hoard ID'S symbol table on 

field f - saves all of the 
user's symbols (except 
Initial symbols, even if 
redefined; on the part 
between n and 7777 inclusive. 
The number n is printed out 
and becomes the new memory 
bound for field y. (N is 
also in location 7777. ) This 
feature is intended to be 
used in association with "S rt 
to save a program on lower 
portion of a field and its 
associated symbols on the 
upper portion of the same 
field* The symbols are not 
changed or killed In any 
way by "H". Any argument 
acceptable to "S" as a field 
number Is acceptable to fl H n . 

**R Read the symbols stored on 

field f into ID'S symbol table - 
reads all of the user ! s symbols 
previously stored on field f by 
the command "H" and bodily appends 
it to ID'S initial symbol table* 
Previous symbols in ID*s symbol 
table are killed (except initial 
symbols). If what it finds on 
that field is not a symbol table, 
it responds with "?", and ID 1 s 
symbol table is not changed. This 
feature is intended to be used with 
"U" to unsave a program and its 
associated symbols for further 
reference. Note that the "R" process 
is different from "T" in that in 
case of "R", current symbols are 
first killed, whereas in the case 
of "T n new symbols read are merged 
with current ones. Any argument 
previously used by M H" as a field 
number can be used for "R" . 
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Two other commands to hoard and read symbols are available 
for swapping the symbols to and from a specified location. 
These are : 



Comm and 
x<fH 



x<fR 



Meaning 

Hoard symbols on field f beloi-j 
location x, The number n is 
printed out j the table of user 5 s 
symbols is between n and x-1 
inclusive lye (N is also in 
location x-1. ) x may be any 
symbolic or numeric location 
and any argument acceptable 
to "S" as a field number may 
be used for f in this command. 
The symbols are not changed 
or killed in any way by this 
command* 

Reads symbols from field f 
below location x previously 
stored by x<fH and appends 
them to ID'S initial symbol 
table. Previously symbols in 
ID 1 s symbol table are killed 
(except initial symbols). If 
what it finds on that field 
is not a symbol table, it 
responds with a n ?'% and ID'S 
symbol table is not changed • 
Any arguments previously used 
in the "x<rfH M command can be 
used for "x<fR n . 



M€ The capital letters H and R when not preceded by a character 
mean hoctal and relative* (See section 1-5 and 6.) 
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U « P unchi ng Programs 

When final corrections have been made In the user's program, 
the user may punch it out in its modified form. The 
four punching commands are L, D, center dot, and J* 

1. L causes ID to listen for title. Letters typed 
after this command will be punched in readable 
form on tape, The title punch is terminated by 
carriage return, tab^ or backspace. The result 
of these terminating characters is given in the 
following table: 

Terminating Cha racter Result 

I $) Punches the standard 

input routine and sets 
ID to punch the usual 
checksummed data blocks, 

->! Sets ID to punch the 

usual checksummed data 
blocks, but no input 
routine . 

^- Sets ID to punch read-in 

mode tapes. 

2. The capital letter D is used to punch data b3.ocks 
from the current field* A variety of formats are 
available to the user for his convenience* 

a - £§£la& where fa and la are any symbolic or numeric 
expressions, punches the current field from fa to 
la inclusive* If the current field is a drum 
field, the origins of the data blocks will be in 
core 0, If the current field is a core field, 
the origins will be in the current core. 

b„ D alone is equivalent to Q<?777.p* It punches 
the entire current field. If the current field 
is a drum field, the origins of the data blocks 
will be in core 0. If the current field is a 
core field, the origins will be in the current 
core* 

c. xg, where x is a core number to 7, punches the 
current field between the limits in M-KL and M+2. 
The data block origins will be in core x. 
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3* §*L* where a is any symbolic or numeric expression* 
causes ID to punch a start (jump) block to the 
address specified to denote end of binary tape. 
The address is typed immediately preceding the J* 

k a If a register is open 5 center dot (*} will close 
the register and punch its contents as a one-word 
data block* This is convenient if the tape needs 
only a few modifications, known in advance. 



-38- 

v"* I^!gfig*-_IMlcatlons and^ Correct ions 

i« ID has several error alarms associated with its use„ 
These are typed out by ID and have the following 
general meanings: 

cksxa A sum check error occurred 

in reading a binary program 
or symbol tape* By moving 
the tape back one block and 
typing "c" the tape will 
continue to be read. 

d.e. Drum swap was not successful. 

Error may be caused by trying 
to write on locked field, or 
a timing error in drum. 

no L? Tills indicates that user 

tried to punch out before 
obtaining a title on the tape* 

busy This indicates that the reader 

or punch is busy and the user 
must wait until available . 

U This indicates that the immediately 

preceding word contains an 
undefined symbol,, ID will act 
as if nothing had been typed. 
Thus, for example, typing an 
undefined symbol in a word 
into an open register will 
result in "U !f , but typing a 
carriage return will close 
the register with its previous 
contents rather than zero. 

? Error has been made in the 

command to ID* ID can't do 
or doesn*t understand the 
request typed in. 
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When a user } s program executes an illegal instruction, 
ID is brought back into control and the address of 
the illegal Instruction is typed and followed by » 
and a tab. Then, the contents of that register 
are typed out,- Be? low is a list of various types 
of illegal instructions: 

&« hit instruction 

b. instruction with an illegal operation code. 

c. instruction which directly or indirectly 
addresses a location above the memory bound. 

d« a reader or punch instruction when no 

assignment has been obtained for the program. 

e. arq instruction vjith invalid code or parameters, 

f • a dec drum instruction addressing an unassigned 
field or locations in core above the memory 
bound » 

gv a bpt instruction at a location to which a 
breakpoint was not assigned by the user 
through ID. 

When the user of ID realizes that he has made a 
typing error, he may delete all that he "has typed 
since the last carriage return or tabulation by 
typing a multiplication sign (x). For example: 

loc/ ->j add a ~>! abcx ->| add, a be 
«/ | add abc. 
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APPENDIX I 
SUMMARY OF CONTROL CHARACTERS 

A- accumulator storage (19)* 

B*Bi-l,Bf2,B+-3 registers containing breakpoint locations (22) 

G set word print mode to constants (17) 

D punch data blocks (36) 

E effective address search (25) 

F without argument: storage for program flags (19) 

with one or two arguments: execute an arq (21) 

G without argument: storage for program counter (19) 

with one argument: start program running, go to (24) 

H without argument: set constant printout mode to (18) 

hoctal (octal; 
with one or two arguments: hoard symbols onto fie Id (34 J 

I i~o storage (19) 

J punch start (jump) block (37) 

K kill defined symbols (3) 

L listen for title punch (36) 

M mask register (26) 

M+l lower limit for word search (26) 

M+2 upper limit for word search (26) 

N not-word search (25) 

set location print mode to octal (18) 

P proceed (24) 

Q last quantity (?) 

R without argument: set location print mode to (18) 

relative 

with one or two arguments: read symbol table (34) 
from field. 

S without argument: set word print mode to symbolic (17) 

with one or two arguments: save memory on field (31) 

T read symbol table (T, IT, 2T) (12) 

x The numbers in parentheses indicate the page number 

where the character can be found. 
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U without argument: set constant printout mode 

to unhoctal (decimal) (18) 

with one or two arguments: unsave field into (31) 
current field 

V verify tape (29) 
W word search (25) 

X execute as instruction (24) 

V read binary tape (28) 

2 zero memory (27) 

0-7 octal numerals and/or symbol constituents (1*0 

8,9*a-z symbol constituents (12) 

" take as concise code (18) 

print as concise code (9) 

O define symbol as address typed (13) 

V inclusive or (14) 
A and (1*0 

f modify and open previous register (8) 

~> print as instruction (9) 

( open register in type -in mode (17) 

) define symbol (12) 

[ examine register as octal constant (16) 

3 examine register as instruction (17) 

minus (14) 

+ plus (14) 

m (space) plus (i4) 

, define as (13) 

~ print as octal (9) 

current location; if preceded by number take 
constant as decimal integer (18) 

x delete typed input (39) 

/ examine 12-bit address register (10) 
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tab modify and open addressed register; also alters 

sequence of location (9) 

bk sp modify and open next register (8) 

car ret modify and close register (8) 

uc, 1c set case 

i examine l6~bit address register (10) 

> modify and open addressed register (10) 

8 take preceding constant as decimal integer (l8) 

• (center dot) punch opened register as one word block (37) 



BASIC INSTRUCTIONS 



add 
and 
cal 
dac 
dap 
dio 
dip 
dis 
-»div 
dsm 
ids 
ior 
iot 
isp 
jda 
jmp 
Jsp 
lac 



lio 
-*mul 
mus 
opr 
sad 
sas 
-»sft 
slq> 
sub 
xet 
xor 



400000 
020000 
160000 
240000 
260000 
320000 
300000 
560000 
560000 
340000 
440000 
040000 
720000 
460000 
170000 
600000 
620000 
200000 
700000 
220000 
540000 
540000 
760000 
500000 
520000 
660000 
640000 
420000 
100000 
060000 



OPERATE GROUP 



cla 
clc 

elf 
cli 
cma 
hit 
->lai 
lap 
lat 

->lia 
nop 
opr 
stf 

~>swp 

XX 



760200 
761200 
760000 
764000 
761000 
760400 
760040 
760300 
762200 
760020 
760000 
760000 
760010 
76 0060 
760400 



-43- 
APPENDIX II 
ID SYMBOL TABLE 



SKIP GHOU 



p 



-*cio 

skp 
sma 
sni 
spa 
spi 

-^PQ 

S2a 

szf 

->ssm 

szp 

sgs 



651600 
640000 
640400 
644000 
640200 
642000 
650500 
640100 
640000 
640500 
641000 
640000 



IN-OUT TRANSFER GROUP 



cbs 
cks 
-*dba 
•Klec 
-xlia 
dpy 
->dra 
eem 
eem 
ioh 
iot 
lem 
Ism 
PPa 
ppb 
i j pa 
rpb 
rrb 
tyi 
tyo 



720056 

720033 
720061 
720062 
72006G 
730007 
72 0063 
724074 

720055 
730000 
720000 
720074 
720054 

730005 
730006 
730001 
730002 
720030 
720004 
730003 



SHIFT/fcOTATE GROUP 



ral 
rar 
rcl 
rcr 
rll 
rir 
sal 
sar 
scl 
scr 
->sft 
sil 
sir 



661000 
671000 
663000 
673000 
662000 
672000 
665000 
675000 
667000 
677000 
660000 
666000 
676 000 



MISCELLANEOUS 


>clo 


651600 


i 


010000 


is 


1 


2s 


3 


3s 

4s 


7 


17 


5s 


37 


6s 


77 


7s 


i77 


8s 


377 


9s 


777 



TIME SHARING INSTRUCTIONS 



sps 


723077 


sdl 


723^77 


lsb 


720052 


wat 


722477 


arq 


722277 


bpt 


722177 


dsm 


722377 


ckn 


720027 


rbt 


720217 


cac 


720053 


asc 


720051 


dsc 


720050 


nmn 


725377 


mat 


725477 


sbr 


722577 


lea 


724677 


lei 


724577 


rer 


724777 



ID 16 aug 65 part 
2200/ 



bpt=iot 2177 
arq=iot 2277 
dsm=iot 2377 
jdp=l40000 
adra=360000 

/low end initial symbol table 

low=. -2400+2033 

/top end of symbol table 

uS o — ■ • "-"£« 

/end of symbol table, pointer t low end < 

est=.-l 

/symbol limit, max number, est-sl-sl must be >2 

/lowest location used by symbol table is est-sl-sl-2 

sl=1000 

/number of . break points 

nbp=4 

/number of internal registers 

nir=nbp+6 

/number of drum fields 

ndf=26 



/fixed loc in exec routine 
xlc=16 



2200, jmp.erit /begin at the' beginning, the king said*... . 



define 


feed a 




law i a 






jda fee 






terminate 




define 


dispatch low 


,upp . 


[upp-uc 


'. 44]xlOOO low-ue 44 


termin 






define 


letter a,b 




& Is p [ | 


;a+uc-44]] > b 

terminate 




define 


bprint 




b=l 






repeat 


nbp-1,7^6254 

terminate 




'dfP, 


add 




dpf, 


add 




aa, 


746100 







747100 







746600 







744400 







744454 


007201 




744454 


007202 




746200 







bprint 




1=0 






r=l 







/good for up to nbp=10 
7200+b b^=b+l 



/d rum . f ie Id of pr ogra m ( rea 1 ) 
/used for holding dfp 

/m 
/m+i 

/M+2 
/B+l, etc. 



start 



ID part 1 1/26/65. 

/this is the. beginning of the real program 



ent, lac ids /were we in ID? 
sza 

jrap enl /yes 
idx ids /we are now 
jsp ssw /set state word pointers 
eem 

lac i acp 
dac ac 
idx acp 
lac i acp 
dac io 
idx acp 
lac i acp 
dac pc 
idx acp 
lac i acp 
dac fg 

/now get the "breakpoint package 

law op 
dap . 2 
lac i bpp 
.. dac bp 
idx bpp 
idx .-2 
sas (dac bp nbp 

jmp ,-5 , 



/get kdm pointer 



/get why 



law xlc 

dap xmw 

lac i xmw 

add xcO /kdf-awl = 4 

dap xmw 

lac i xmw 

lem 

dap kdm /pointer into exec core 



Jsp gy 
jmp en2 



enl, jsp 

sad (4 /call button 

jmp zrt 

lac dpf 

dac dfp /restore drum field 

jmp err 



/dispatch 

en2, and (77 

sas.why /check validity 

jmp , : /Leo, you goofed. 

add red 

dac bkf /setup flag 

dap . 1 

jmp • /go, man, go 

/dispatch table 

red, . 1 /constant 

jmp zrt /^dt 1 typed from mystic 

jmp . /arq—leo goofed again 

jmp cl /dsm issued 

jmp ii /illegal op 

jmp ell /call button 

jmp Ibp /bpt given 

jmp rx /return from X 

jmp . /leo screwed up 



/subroutine to get why, the reason ID was entered 
/^eaves reason in why and ac - io preserved 



gy, dap gyx 
eem 

law xlc 
dap xmw 
lac i- xmw 
add xcl 
add xc2 
sub xc3 
dap xmw 
lac i xmw 
dap xmw 
lac i xmw 
lem 
dac why 

gyx, jmp • 



/random constants 



acp, 


050000 


bPP> 


050000 


xmw, 


050000 


xcO, 


000004 


xcl, 


000017 


xc2, 


000015 


xc3, 


000003 


why, 


000000 


bp, 


000000 




000000 


cnl, 


000000 




000000 


xe2, 


000000 


nms, 


000000 


ids, 


000000 


ope, 


000000 


kdm, 


050000 


bpa, 


000000 


xe3, 


000000 


pll, 


000000 


mpc, 


lac bkl 


mb, 


006770 



/pointer to ac in exec core 
/pointer to bpt package in exec core 
/gets into exec core. 
/04=kfd~awl (executive symbols) 
/I5=sp2~awl (executive symbols) 
/13=brk-sp2 H 
/brk-why M 
/reason ddt was activated 
/break- 
point 
/pack- 
/age . 

/temp storage for pc 
/switch for G P or X 
/ID switch (non 0-KCD running) 
/storage for pc during X 
/pointer to kdm word in exec 
/temp for pointer tracing 
/temp for instruction in bpt routine 
/storage for proceed routine 
nbp /random number f or bpi-bpo 
/memory bound 



/subroutine to set up pointers to state word and bpt pack 

/sets pointers acp and bpp 

/jsp'ssw to enter ac clobbered io preserved 



ssw 



ssx, 



dap 


ssx 


law 


xlc 


dap 


xmw 


eem. 




lac 


i xmw 


add 


xcl 


dap 


xmw 


add 


xc2 


dac 


ssx 1 


lac 


i xmw 


dap 


xmw 


lac 


i xmw 


dap 


acp 


lac 


ssx 1 


dap 


xmw 


lac 


i xmw 


dap 


xmw 


lac 


i xmw 


dap bpp 


lem 




jmp 


• 








/sp2~awl = 15 
/brk-sp2 = 13 

/pointer to ac 



/pointer to bpt package 



/temporary storage 



el, 



clc 

dac bkO 
jmp xe 3 



/clear the proceed indicator, dsm entry 



ell, 



law 2 
sas runs 
jmp ell 
clc 

dac bkO 
law 7427 
jda tys 
law 7255 
jmp ixe 3 



/call button entry 



/call while X in progress 
/cant proceed 



/pc=xe2 so mp3 works right 



ell, 



law 7777 /normal call 
and pc 
jmp 3bp 



3.x e 



j»a"'*p'j , 



law 7427 
jda tys 
law 1010 
jda tys 
jsp let 
jsp mp3 
jsp fet 
jda lwt 
jmp xe+1 



/illegal execute 



/setup 

/and get the offending word 



rx 



xe 



lac pc 
sub xe2 
sas (1 
jsp lec 
lio ope 
dio bkO 
jsp bpo 
jmp zrt 



/X return 

/did X 

/skip? 

/yes 

/no skip 

/restore old pc for proceed after X 



/drum read error .routine 



dre, 



lac (723564 
jda tys 
lac (6534 
jda tys 

jmp lis 



ibp, dzm bkf /breakpoint 

law 2 

sad nms 

jmp ixe A>pt while X in progress. 

law 7777 , 

and bp 3 /true loc of bpt 

dac t 

law bid. /setup 

dap 2bp 
2bp, lac • /check for assigned breakpoint 

sad t 

jmp 3bp 

idx 2bp 

sas (lac bid nbp 

jmp 2bp 

ii, law 2 /illegal instruction 
sad nms /were we X ing 
jmp ixe /yes -illegal execute 
lio (741010 
law 7777 /check 
and pc 

dap t2 /for 
; law bid 
dap . 1 /illegal 

lac bid : 

sadt2 /instruction 
jmp 3bp 1 
idx .-3 /under 
sas (lac bid nbp 
jmp -.-5 /breakpoint, 
dio bkf 

lac t2 -/to set up bkO after bp3 
jmp 3bp 1 



3bp, lio {55 
dio t3 



dac bkO /set up for proceed from bpt or illegal 

jsp bpo 

lac pc 

dzm mod 

dzm lef 

jda pad 

lac t3 

jda tys 

lac pad 

jmp ta5 



/G go 




t>go, 


jda chk 




dzm nms 




spi 




jmp err 




dap xe2 




jsp mp3 




jsp bpi 




jsp XXX 


Pi/ 


jsp lcc 




jmp p!2 



/new mode switch 



/setup address 

/setup fetch and counter for "bpt 

/put in breakpoints 

/for sequence break(same xxx as exec) 



/X execute from location n 



xeO, 



spi 

jmp err 
dap xe2 
law 2 
dac nms 
lac bkO 
dac ope 
jsp mp3 
jsp fet 
dac xe3 
jmp pi 



/save old pc til' after X 



/subroutine mp3 



mp3, 



dap * 7 
dzm tsf 
lac xe2 
add c4 
dac tas 
lac c4 
dac cnl 
jmp • 



/fetch from drum 

/at loc=c(xe2) 
/proceed counter= 



/p proceed and multiple proceed logic 
prO, 



P2, 



spi 
law 
cma 

add c4 
dac cnl 
lac bkO 
sad (-0 
jmp err 
dap xe2 
dzm nms 
law bkl 
dap p8 
dap . 1 
lac • 
sad bkO 



/single proceed 

/loc to proceed from 
/cant proceed 



/is this proceed through bpt? 



jmp p3 
idx p2 
sas (lac bkl nbp 



jmp p2 



lac bkf /did we stop by xct ing a bpt? 
sza l 

jmp pl-2 /no 

p8, lac bid. /yes 

sad bp 3 /is there still one there? 

jmp p9 /yes 

idx p8 

sas (lac bid. nbp 

jmp p8 

jmp pl-2 /no longer there 



P9, lac p8 

jmp p3 1 



p3, lac p2 
dap pll 



jsp bpi 

jsp lcc 

lac pll 

dap » 1 

lac . 

add c4 /after putting in bpt s 

dap bp 3 : • 

dac tas /put back old instruction 

dzm tsf 

lac pll /so that it will be executed 

add (nbp 

dap .1 

lac . /this is the instruction from under bpt 

jda dep /put it back 

law 1 , 

dac nms /setup proceed, 

jmp pl-1 



/xxx routine and associated trash 

xxx, dap xxi 

eem 

lac fg 
and (23000 
sad (21000 
lav; 1 
lio i kdm 
ril 1 
rcr i 
dio i kdm 
lem 
xxl, jmp . 



/set the state of the user and go 



pl2, jsp ssw 

laaaaaaaccccc "bkl lac "bid 

dac op 

lac "bkl nbp 

dacbp! %et up *pt package 

,eem 

lac ac 

dac i acp 

idx acp 

lac io 

dac i acp 

idx acp 

lac xe2 

dac 1 acp 

idx acp 

lac f.g 

dac i acp 



/now the bpt stuf 



law bp 

dap . 1 

lac bp 

dac i bpp 

idx bpp 

idx .-3 

sas (lac bp 4 

jmp .~5 

dzm ids /note that we are leaving ID 

lac nms 

dsm /pass the buck to exec* 



bpl, 


lio (-0 




jmp .42 


bpo, 


cli 




dio dff 




dap bp6 




lac bp6+2 




dac bp2+l 




law bp5 




dap dpx 




spi i 




idx dpx 


bpl, 


law bid 




dap bp3 


kp2, 


add (nbp 




dap bp4 


bp3, 


lac . 




spa 




n *jmp. bp5*KL 




dap tas 


bp4, 


lac . 




dac dep 




cla 




jmp dpO 


bp5, 


dac i bp4 




idx bp3 




sas rape 




jmp bp2 




cla 




sad dff 


bp6,. v 


jmp . 




law (bpt 


bp6+2.., 


dap bp4 




dzm dff 




idx dpx 




lac . •- 




dac ,"bp2+l 




jmp bpl ; 


cbp, 


dap cbx 




law bkl 




dap bp3 




clc 




, dac i bp3 




idx bp3 




sas mpc 




jmp • -4 


Cbx.jj 


jmp . 



/breakpoints insert into user's field 
/break points take out 



/gets changed 
/used by cbp 



/used as a constant above 



/clear all: breakpoints 



fet, lio (-0 /fetch 



dep, • /deposit 



dep+6, lac tsf /re -entry from word search 

sza 

jmp dp2 
dpO, lio dff /re-entry from, bpi, bpo 

dpi, 



chx, 



lio 


(-0 


dio 


dff 


jmp 


dep+2 


• 
dzm 


dff 


dap 


dpx 


lac 


tas 


sma 




jmp 


dpx-1 


lac 


tsf 


sza 




jmp 


dp2 


lio 


dff 


spi 


i 


lac 


dfp 


dip 


tl 


law 


I"? ryryr? 


and 


tas 


jda 


chk 


dap 


tl 


lio 


tl 


dia 




law 


1 


lio 


dff 


spi 




add 


dfp 


swp 




law 


dep 


dec 




jmp 


dre 


lac 


dep 


jmp 


• 







dap 


chx 


law 


7777 


and 


chk 


sas 


chk 


jmp 


taO . 


sub 


mb 


sma 




jmp 


taO 


add 


mb 


jmp 


.•.■•'•. 



dpx, 

chk, /check against -F 



dp2, 



dp3, 



dp4, 



dp5, 



dp6., 



dp?, 



dp 8, 



lio 


dff 


law 


,7777 


and 


tas 


sub 


(ac" 


spa 




jmp 


taO 


sub 


(4 


sma 




jmp 


,d P 4 


lac 


1 tas 


spi 


1 ' 


lac 


dep 


dac 


1 tas 


jmp 


I dpx 


sub 


(2 


sma 




jmp 


dp 6 


spi 




jmp 


dp3 


add 


one 


sma 




jmp 


dp5 


lac 


dep 


jda 


chk 


jmp 


dp3 


lac 


dep 


jda 


chk 


sub 


11 


spa 




jmp 


taO 


^mp 


dp3 


sub 


(nbp 


sma 




jmp 


taO 


spi 




jmp 


dp? 


lac 


dep 


sad 


-0 


jmp;dp3 


jda 


chk 


dac 


chk 


law 


bki 


dap 


dp7 


lac 


• 


sad 


chk 


jmp dp8 


idx 


dp7 


sas 


mpc 


jmp 


dp7 


jmp dp3 


clc 




dac 


1 d P 7 


jmp dp7+3 



/fetch,- deposit internal registers 



/M+l 

/M-+2 



/B thru B+nbp-1 



/check whether already assigned 



dp9, 



pv, dap pvx /punch,/ verify swap routines 



pv2, 



lac 


1" tas 


sma 




jmp 


i dpx 


law 


56 


jda tys 


clc 




dac 


lwt 


jmp 


pn2 


dap 


pvx 


clc 




dac 


dff 


lac 


pvf 


sza 


i 


jmp 


pvi 


spa 




jmp 


pv2 


law 


7777 


and 


fa. 


sub 


lo 


spa 




jmp 


pvl 


dap 


•+5 ? ' 


sub 


wc 


add 


one 


szm 




jmp 


pvl 


lac 


• 


jmp 


• 


lac 


fa 


dac 


pvf 


dap 


lo 


Jsp 


zd 


lac 





jmp 


pvx 


lac 


dep 


jmp 


pvx 



/from pwd 



hi, ' lac . /used by searches 

pvx, 

pvi, 



zd, 


dap 


zdx 




law 


1 




add 


wrd 




sub 


lo 




sub 


est 




sma 






cla 






add 


est 




dap 


esp 




dap 


wc 




lac 


dff 




sza, 






jmp 


zd2 




dap 


.+1 




dzm 


• 




idx 


.-1 




sas 


esp 




jmp 


.-3 


zdl,, 


lac 


lo 




add 


dfp 




swp+cli-opr 




dia 






lio 


wc 


zda, 


dec 






jmp 


dre 


zdx, 


jmp 


• 


zd3, 


law 


i 1 




add 


lo 




add 


wc 




sub 


wrd 




sza 


i 




jmp 


zrt 




lac 


wc: 




adm 


lo 




law 


1 




add 


wrd 




sub 


lo 




sub 


wc 




sma 






cla 






adm 


wc 




lio 


dff 




spi 


i 




jmp 


zdi 


zd2> 


lio 

dia 


lo 




lac 


wc 




add 


dfp 




swp+cli-opr 




jmp 


zda 



/zero drum, used for searches also 



/re-entry point 



/re-entry point 



sav, nop /or sas mst+3 for field 23 for radio astronomy 

jda ckf 

dac tl 

lia 

lac dfp 

dac t 

jmp sul 

uns, jda ckf /unsave 

dzm t 

dip t 

lio t 

lac dfp 

dac tl 

sul, dzm lo 

law .1 1 

add mb 

dac wrd 

clc 

dac dff 

lac t 

dac dfp 

jsp zd 

su2, lac tl 

dac dfp 

law su3 

dap zdx 

jmp zdl 

su3j lac t 

dac dfp 

law su2 

dap zdx 

jmp zd3 

spf, add (20 

cli+swp-opr 
rcr 6s 
add c4 
jmp sul -5 

ckf, 

dap cf x 

lac ckf 

and (37 

sub (ndf 

szm 

jmp err /field number too big 

lac ckf 

rar 6 s 
efx, jmp . 



ws, spi /W,N,E. 



spi 




jmp 


err 


dzm 


ts'f 


dap 


ws2 


lac 


11 


sub 


ul 


szra 




jmp 


err 


J'sp 


lcc 


clc 




dac 


dff 


lac 


wrd 


dac 


chi 


lac 


11 


dac 


lo 


lac 


ul 


dac 


wrd 


Jsp 


zd 



wsO, 


lac wc 

dap hi 

cla 

dap ws4-KL 




ws4. 


dzm sym 
lac • 
dac t2 




ws2, 


-jmp . 


/eal or wsl 


eal, 


and (770000 
sad ( jda 










jmp .+4 ■ ■ 






and ci 






sza 






jmp ea2 






law 7777 






and /t2 




wsi, 


xor chi 




can, 


and msk 


/used as and 


wea, 


XX 

jmp ws3 

law 7777 
and ws4+± 


/sza or sza i 








add lo 






dap loo 






dzm icf 






Jda pad 






law 2136 






jda tys 






lac 1 ws4+l 






jda Iwt 






jsp lcc 




ws3, 


idx ws4+l 
sas hi 
jmp ws4 
jmp zd3 




ea2, 


idx sym 
sad clO 
jmp ws3 
law 7777 
and t2 
sub mb 
sma 

jmp ws3 
add mb 
dac tas 
sub lo 
spa 

jmp dep+6 
dap .+5 
sub wc 
add one 
szm 

Jap dep+6 
lac • 
Jmp ws4+2 





ver, jsp ar /verify 



vfi; 



vf3, 



vf2, 



jsp 


ar 


jsp 


lcc 


lac 


t 


dap 


fa 


lac 


fa 


sub 


chk 


sub 


(dio 


spa 




jmp 


vf2 


add 


chk 


sub 


wrd 


szm 




jmp 


vf2 


jsp 


pv 


dac 


chi 


lac 


i la 


sad 


chi 


jmp 


vf2 


lac 


fa 


dap 


loc 


dzm 


lef 


jda pad 


law 2136 


jda tys 


lac 


chi 


jda 


lwt 


jsp 


let 


lac 


i la 


jda 


lwt 


jsp 


lcc 


idx 


fa 


idx 


la 


sas 


rbl 


jmp 


vfl+2 


jsp 


rbk 


jmp 


vfl 


dap 


arx 


law 


51 


arq 




jmp 


bus 


jsp 


let 


law 


4642 


jda 


tys 


jsp 


soi 


jsp 


let 


jmp 


• 


jsp 


let 


lac 


(356224 


jda 


tys 


lac 


(223034 


jda 


tys 


jmp pn2 



/lo 



/lo 



ar, dap arx /assign reader 



arx, 

bus, jsp let /busy 



start 



ID part 


2 1/26/65. 


JL J.S $ 


law i 47 




arq 


lis+2, 


law i 51 




arq 


zrt, 


lac dpf ' 




dac df p 


Ise, 


jsp lcc 




dzm mod 




dzm tas 




dzm ii£ 


lss, 


clc 




dac chi 


lsp> 


dzm wrd 




lac cun 


ssn, 


dip sgn 




dzm dnm 




dzm syl 


n2, 


dzm sym 1 




dzm sym r 




clc 




dac let 




dac chc 


lsr, 


dzm bbf 




lio ski 




dio wea 




init bax, li 




ty i 


psl, 


dio ch 




law dtb 




add ch 




dap .+1 




lac . 


cas, 


XX 




and (777 




dac t2 




sub (44 




spa 




jmp In 


cad, 


add (jmp uc 




dap Isx 




sub arl 




spq 




jmp i lsx 




lac sym 1 




ior sym r 




lio lef 




sad (45 




dio iif 




law syl 




lio let 




spi i 




jsp evl 




jmp ev4 



/initialize assignments, 
/used by ffl 



/zero drum routine return 



/rar 9s or dio ch 



/used as add 

/last no-eval routine 



law 


77 


sad 


ch 


dzm 


T/&S 


lac 


(flex 


jda 


tys 


jmp 


lss 



u 



evl, dap evx /symbol lookup 

law mst+2- 

dap esk 
eve, lac est 

dap es4 



evg, 


dap ev£ 


ev2, 


lac . 




spa 




jmp esn 




cla 


es3> 


sas sym 1 




jmp esi 


es4, 


lac • 




sad sym r 




Jmp ev3 


esi, 


idx es4 




idx es4 


esk> 


sub rnst+2 




sma 




jmp .+3 




add i esk 




jmp evg 




idx evx 


ev3> 


idx es4 


evx, 


jmp • 


esn, 


idx es4 




lac i ev2 




xor c4 




Jmp es3 



/or (lac low 



ev4, 


dap sgn 




lac wrd 


sgn, 


aX 




dac wrd 




lio chi 




spi 




lac lwt 


XSXj) 


jmp . 


n, 


rir 5s 




lac syl 




ral 3s 




spi i 


cun, 


ior t2 




dac syl 




lac dnm 




ral 2s 




add dnm 




ral Is 




spi i 




add t2 




dac dnm 




jmp 11 


In, 


add (44-12 




spa 




jmp n 




dzm let 


11 > 


dzm chi 




idx t2 




idx chc 




sas (4 




jmp ln3 




lio sym r 




dio sym 1 




dzm sym r 


ln3, 


sub (6 




szrn 




jmp lsr 




lac sym r 




mul spd+1 




div spd+2 




jmp . 




add t2 




dac sym r 




jmp lsr 



/operator and syllable addr. 



/number routine 



/letter routine 



uc,n-*44, lio (rar 9s 
jmp .+2 

1c, lio psl 
dio cas 
jmp lsr+1 



sqo, 



quo, 



f, 



a 



ir, 



m. 



nl, 



taO, 
err, 
erl, 



ser 



lac dnm 
Jmp nl+1 

lac sym 1 
sza i 
lac sym r 
jda spv 
lac tys 
jmp nl 

lac lwt 

jmp nl 

lio chi 
spi i 

jmp f f 
law fg 
jmp nl-1 

law ac 
jmp nl-1 

law io 
jmp nl-1 

law msk 

dac iif 

dzm chi 
dac syl 

jmp n2 

lac (7^3521 
jda tys 
law 7234 
jda tys 
law i 51 
arq 
jmp lse 

law 7435 
jda tys 
law 0772 
jda tys 
lac est 
dap srl 



/upper case 
/lower case 

/• means take decimal number 



/ u means take as flexo codes 



/Q means last quantity 



/A means accumulator 



/I means i-o 



/M means mask register 



A 

Ac, blk 



/symbol table overflow error 



Sx J. f 



daq, 



com, 



lac 
spa 

idx srl 
idx srl 
lac i srl 
Jda pi 
lac (741034 
*jda tys 
jmp lis+2 

law 7777 
and Iwt 

jmp ■ >■ +2 

lac loc 
dac dfl 



/D defines sym as address of Q 



/comma defines sym as loc 



def, 


lac let 


ski, 


sza 




jmp err 




law pn2 


de, 


dap dex 




lio dfl 




jsp evl ... 




jmp df2 




law est-sl-sl 




sub est 




sma 




Jmp ser 




law i 1 




adm est 




dlo i est 




sub one 




dap est 




lio syrn r 




dio i est 




sub one 




swp 




lac sym 1 




sza i 




jmp dex 




dlo est 




xor c4 




dac 1 est 




jmp dex " 


df2, 


dio i es4 


dex, 


jmp . 


dot, 


lio chc 




lac loc 




spi i 




lac dnra 




dac syl 
law 44 






dac t2 




jmp 11 


del, 


dzm iif 




jmp pn2 



/define symbol 



/symbol table full 



/end of no-eval routines, delete 



val, dac dfl /open paren, sets up value for define 

jmp lss 

kil, spi /K 

jmp ki5 

lac let 

sza 

jrnp err 

lal, lac low /used below 

sad 1 est 

jmp err 

law kil /delete one symbol 

dap evx 

law lal 

jmp evl+2 



eql, 

arw, 
arl, 

oet, 
dec, 



smb, 
ens, 

oad, 
rad, 

tls, 
Pis, 
4in, 

uni, 
isc, 



jda 


e'ap 


jda 


opt 


jsp 


let 


jmp 


Iss 


j da 


eap 


jda 


pi 


jmp 


del 


spi 


i 


jmp 


err 


law 


10 


jmp 


• T T 


spi 


i . 


jmp 


uns 


law 


12 


dap 


ops 


jrap 


lse 


spi 


i 


jmp 


sav 


law 


pi 


jrnp 


.+2 


law 


opt 


dap 


pns 


jmp 


lse 


law 


pvl 


jmp 


tls-1 


spi 


i 


jmp 


err 


law 


pev 


dap pal 


jmp 


lse 


lac 


cad 


jmp 


ssn 


spi 




dio 


wrd 


lac 


csu 


jmp 


ssn 


jmp 


ssn-1 


lac 


can 


jmp 


ssn 



/print octal integer (=) 

/print as instruction (-*) 
/used by cad+2 

/octal^-decimal switch setup 
/H 

/U 



/symbolic-constant switch setup 
/S 



/C 



/octal-relative switch setup 
/0 



/R 



/plus, space 
/minus 

/union, V 
/intersection, A 



"tab y 



ta3, 



bs, 



fs, 



spi 


1 


jda 


dep 


dzm 


lcf 


dac 


lwt 


Jsp 


lcc 


11 


lcf 


sni 




jmp 


ta4 


sub 


(ac 


spa 




jmp 


taQ 


sub 


(nlr 


sma 




jmp 


tao 


add 


(nlr 


sal 


Is 


add 


(aa 


dap 


• *TU- 


jda 


tys 


idx 


.-2 


xct 


.-3 


jda 


tys 


jrnp 


ta4+l 


spl 


1 


jda 


dep 


idx 


loc 


jrap 


ta3 


spl 


i 


jda dep 


law 


i 1 


adm 


loc 


jmp 


ta3 



/tab 



/internal symbol print 



lac 



/backspace 



/arrow up ( forward space ) 



bac, law opt /open bracket (bar-constant) 

jmp .+2 
bas, law pi /closed bracket (bar-symbolic) 

dap bax 

jmp bar 
vb," clc /vertical bar 

dac mod 
bar, lac lcf /slash . ■ - 

dac tas /tas used for, temporary storage 

lac iif 

dzm iif 

dac lcf 

sza 

dac tsf 

lac wrd 

spi i 
" jmp ta5 

lac tas 

dac lcf 

lac lwt 

dzm tsf 

jmp ta6 

uc.8, spi i /> means make corr. and open register 

jda dep 
; dzm tsf. 

jmp ta6 

cr, spi i /carriage return 

jda dep 
dac lwt 
law 72 

. jda tys 
jmp lse+1 

eas, law ws4+2 /effective address search 

dap dpx 

law eal 
jmp ws 

nws, lac sk2 /not word search 

dac wea 

wds, law wsl /word search 

jmp ws 

pbx, jda eap /print as bed (~) 

jda tys 

jmp pn2 



rd, 


spi i 




jmp err 




jsp'ar 




jmp ,+2 


rib, 


jsp rbk 




. lav/ i 1 




add ch 




and (7777 




jda chk 




lac ch 




sub t 




dap wc 




law 7777 




and t 




add dfp 




swp 




dia 




lio wc 




law buf 




dec 




jmp dre 




jmp nb 


bgn, 


jmp bgO 


xec, 


jmp xeO 


pra, 


jmp prO 


bk, 


spi i 




jmp lbk 




clc 




dac bbf 




dac let 




law bkl 




dac syl 




dac iif 




dzm chi 




jmp lsr-KL 


lbk, 


dac dep 




law bkl 




add c4 




dac tas 




dac tsf 




jsp dep-KL 




jmp Ise 


OVb, 


clc 




spi 




jmp hi 




sas bbf 




jmp err 




jsp cbp 




jmp Ise 



/read binary, tape (y) 



/check last address of block 



/B 



/overbar 



start 



ID part 3 1/26/65. 

ttr, spi. i /title punch and punch format setup 



spi. 


i 


jmp 


err 


law 


47 


arq 




Jcip 


bus 


feed 30 


Jsp 


Ice 


jmp 


tpi 


spi 




jmp 


err 


law 


47 


arq 




jmp 


err 


lac 


wrd 


ior 


cj 


dac 


Iwt 


feed 40 


lio 


Iwt 


jsp 


pbw 


feed 520 


Jmp 


lis 



jbk, spi /jump block 

/do we have the punch 



pul, jda chk /lower limit setup 



pwd, dac dep /punch word 



jda 


chk 


dap 


fa 


jmp 


lss 


dac 


dep 


lac 


tas ' 


sma 




jmp 


taO 


lac 


tsf 


spi 




ior 


mod 


sza 




jmp 


taO 


law 


47 


arq 




jrap 


bus 


spi 




jmp 


.+3 


jsp 


dep+1 


dac 


Iwt 


clc 




dac 


pvf 


lac 


tas 


dap 


fa 


dap 


la 


jmp 


pb5 


spi 




jrap 


err 


law 


47 


arq 




jmp 


err 


jsp 


zro-fl 


lac 


fa 


ior 


c77 


dac 


t 


sub 


la 


sma 




jmp 


pb6 


idx 


t 


jsp pbb 


lac 


t 


dap 


fa 


jmp 


pb5 


lac 


la 


dac 


t 


idx 


t 


xct 


pb4 


jmp 


pn2 



/do we have the punch? 



pun, spi /punch any length block 

/do we have the punch? 
jmp err 
jsp zro-fl 

Pt>5* 

ior c77 
dac t 

sub la 
sma 

/next hundred too high 

pb4, jsp pbb /pbb or pur 



pb6, 



vfy, 



zro 



zvp, 
tbl, 



tbl, 



jsp 


zro+1 


jmp 


ver 


law 


zd 


dap 


zvp 


lac 


wrd 


spi 




jmp 


.+3 


jda 


chk 


jmp 


.+5 


cla 




dap 


fa 


law 


i 1 


add 


mb 


dac 


wrd 


dap 


la 


law 


7777 


and 


fa 


jda 


chk 


dac 


chk 


dac 


lo 


sub 


wrd 


szm 




jmp 


err 


dzm 


dff 


dzm 


pvf 


law 


zd3 


Jmp 


* 


spi 


i 


jmp 


tb2 


jsp 


air 


lac 


t4 


sad 


(jmp 7750 


jmp 


tb5 


sad 


(jmp 6151 


jmp 


tbl-1 


sas 


(jmp 7751 


jmp 


err 


dzm 


sym 1 


jsp 


gwd 


jda 


pz 


lac 


la 


sad 


rbl 


jmp 


tbn 


jsp 


gwd 


dac 


dfl 


JSP 


de 


jmp 


tbl 



/for verify 



/for zero registers 
/used by block operations 



/symbol table reader 



/reader-macro 



tbn, 


law est 




sub est 




sar Is 




jda opt 


tbm, 


jsp rbk 




jmp tbm 


gwd, 


dap gwx 




lac la 




sas rbl 




jmp gwl 




jsp rbk 




jmp gwd+1 


gwl, 


dap gwa 




idx la 


gwa, 


lac * 


gwx, 


jmp . 


tb-5, 


jsp gwd 




dac sym 1 




jsp gwd 




and (177777 




dac sym r 




ior sym 1 




sza i 




jmp tbn 




jsp gwd 




dac dfl 




lac sym 1 




lia 




ril Is 




sma+spi-skp 




jmp tb5 




and (177777 




dac sym 1 




jsp de 




jmp tb5 



/skips rest of tape 



/read midas table 



tb2, 


dzm sym 1 




sas one 




jmp pot 




lio mst 




dia 




law low 




dac est 




add dfp 




cli+swp-opr 




dec 




jmp dre 




lac low-1 




sub (lac 6150 




sma 




Jmp err 




add mst 




spa 




Jmp err 




law i 61 51 -low 




add low-1 




dac t3 




law low-2 


tb3, 


dap tb4 


tb4, 


lac . 




dac da 




law 1 1 




add tb4 




dap tb4 




lac i tb4 




jda pz 




jsp de 




lac tb4 




sad t3 




jmp Ise 




sub (l 




jmp tb3 



/table read from ts macro or possible 
/see if table read from possible 



pot, 



gfct, 



gsb, 



sas 


(2 


jmp 


err 


lac 


(400006 


dac 


tas 


jsp 


fet 


sal 


1 


crna 




dac 


opt 


idx 


tas 


Jsp 


fet 


dac 


tl 


lio 


ti 


dia 




law 


100 


add 


opt 


sad 


(-100 


Jrnp 


lse 


spa 




cla 




add 


(-100 


dac 


t2 


cmaviia 


adm 


opt 


lai 




adm 


tl 


lai 




ior 


dfp 


lia 




law 


buf 


dap 


gsb 


dec 




Jmp 


dre 


lac 


• - 


and 


(177777 


lia 




idx 


gsb 


dio 


sym r 


lac 


i gsb 


sni 


i 


jda 


dfl 


idx 


gsb 


idx 


t2 


isp 


t2 


jmp 


gsb 



/not possible 



/twice n'o of symbols in possible 



/origin of table 



/finished 

/full block 

/word count (negative) 

/number of remaining words 

/initial drum address next 

/initial core address - reader buffer 



jmp gf d 



pz,t6, 



pzl, 



pzx, 



iS.jL.CL j 



Klj f 

.kl4, 



ki5, 



X © © f T> c. j 



Tex, 








dap 


pzx 


lac 


pz 


and 


(202020 


ral 


JLS 


xor 


pz 


xor 


c4 


dzm 


sym r 


lia 




cla 




rcl 


6s 


add 


ps±+l 


dap 


.+2 


law 


77 


and 


• 


dac 


t2 


idx 


t2 


lac 


sym r 


ral 


2s 


add 


sym r 


ral 


3s 


add 


t2 


dac 


sym r 


sni 


i 


jmp 


pzl 


jmp 


• 


jmp 


• The. 


jmp 


err 


SUb 


ev2 


dac 


t3 


idx 


t3 


dac 


t4 


idx 


t4 


idx 


es4 


and 


/ t-7 (yo i-i 


sub 


t4 


dap 


ki3 


add 


t3 


dap 


ICXt" 


11 


• 


dio 


• 


sas 


est 


jmp 


ki2 


add 


t3 


jmp 


• Tli 


law 


low 


dac 


est 


jmp 


lse 







dap 


Jt vA 


cli 




ppa 




isp 


fee 


jmp 


* mm €HL 


jmp 


« 



/permute zones . ' ■ ( temp storage here ) 



/delete all symbols 



/feed subroutine and temp storage, 



3- wt > /q, last word typed 

dap pnx 

lac lwt 
pns, jda pi /pi or opt 

pnx, jmp . 

ea P> ° /eql,arw,pbx common 

dap ,+7 

lac eap 

dac lwt 

lac iif 

sza 

jmp taQ 

jsp let 

jmp . 

ff, lac sym 1 
sza i 
lac sym r 
jda spv 
law f fl 
dap isx 

J.ZLO 16 U 

law syl 
spi i 
law tys 

jmp ev4 /returns with ac proper for arq 
ffl, lio io 

arq /do the arq with phony ac but real io 
jmp ff2 

dio io /f interacts only with io 

dac fft /temp storage 

jsp lec 

ff3/ Jsp lec '• 

lac fft 

jda opt /type out ac since it may contain info 

dac lwt 

jmp lse /return to listen 

/since Ice not transparent, save and restore ac etc 

ff2, dio io 

dac fft 

jmp ff3 
fft, /temp for ac 



jJ J. <f vht. 


dap px 




jsp pev 




lac pi 




sub ci 




spa 




jmp ppk 




dac pi 




law 72 




jda tys 




tyo 




law 71 




jda tys 


ppk, 


cli 




tyo 




szf 2 




jmp pvl 




law 72 




jda tys 




and (760000 
sad (sft 






jmp 166 




sad prO-KL 




jmp plo 




rar Is 




sza 


csu, 


sub (320000 




spa 




jmp plo 


pvl. 


lac pi 




sza i 




szf 1 i 


pv3> 


jda opt 


PX* 


jmp . 


166, 


law 1 




add pi 




and pi 




sza 




jmp pvl . 




law pai-KL 




dap pex 




lac ea 




jmp eak+2 


pad, 







dap px 




law 7777 




and pad 




dac pi 




elf 1 


pal, 


jsp pev 




lac (flexo + 




jda tys 




jmp pvl 



/print instruction 



/law 
/used as sub 



/ls-9s 



/print address 



/pev or pvl 



ta4, jda pad 
lio mod 
law 7221 
spi 

law 7456 /for type-in mode 

jda tys 

, ta5, dzm loc 
dap loc 
lio lef 
dio tsf 

ta6j dap tas 

jsp let 

lac cad 

dip tas 

lac mod 

sza 

jmp lss 

jsp fet 

dac lwt 

bax, jda lwt /pi, opr or lwt 

Jmp pn2 



pev, 


dap pex 




law i 7777 




and pi 




sad (opr 




jmp sev 




and (76OOOO 
sad (skp 






jmp sev 




elf 2 


eak, 


lac est 




dap ea 




elf 1 


:eai, 


llo i ea 




spi 




idx ea 




dap psw 




spi i 




cli 




dio t6 




idx ea 


ea, 


lac • 




szf 2 




jmp sko 




xor pi 




spa 




jmp eix 




lac pi 




sub i ea 




spa 




jmp eix 




szf i 1 




jmp psw 




lac i ea 




sub i eil 




szm 




jmp psw 


eix> 


idx ea 




lia 




sub mst+2 




swp 




spi i 




jmp .+3 




sas mst+1 




jmp eal 




szf 2 




jmp pex 




szf i 1 




jmp pvl 




lac pi 


eil, 


sub 




lia 




sza /c 




jmp i77 




dio pi 


eiy, 


jsp spt 




lac pi 


sk2, 


sza i 




jmp px 




szf i 2 



/symbol lookup subr 



/detect operates 



/detect ' skips 



/test for, tt skip or operate" or other 



/detect neg nums 



pex. 



sev, 



sko, 



psw. 



177, 



tys, 



jmp 


• 


cma 




dac 


t2 /ma 


jmp 


eix 


dac 


tl. 


lac 


pi 


cma+stf 2-opr 


dac 


t2 


jmp 


eak 


ior 


tl 


sas 


i ea 


jmp 


eix 


szf 


1 


xor 


tl 


sza 


i 


jmp 


eix 


xor 


pi 


lia 




and 


t2 


sza 




jmp 


eix 


dio pi 


szf 


i 1 


jmp 


psw 
{flexo V 


lac 


jda 


tys 


lac 


"• • 


dac 


syxn r 


lio 


t6 


dio 


sym 1 


lac 


ea 


dap 


eil 


stf 


1 


szf 


2 


jmp 


eiy 


jmp 


eix 


law 


i 7777 


and 


pi 


sas 


(770000 


jmp 


eiy-1 


law 


7254 


jda tys 


lac 


pi 


cma 




jmp 


pv3 







dap 


tyx 


setup opt, 3 



/save instruction 
/mask 



/best symbol thus far 



/numbers 77xxxx 



/type symbol 



tyi, 


lac tys 




ral 6s 




dac tys 




and c77 




sza i 




Jmp tyc 




sad (72 




jmp dns 




sad (74 




jmp ups 




swp 


tyb, 


tyo 


tyc, 


count opt, tyl 




lac lwt 




cli 


tyx, 


jmp . 



dns, lac gsl /redundant case shift filter 

dnl, 



ups, 



Ice, dap lex /lower case, carriage return 



let, dap lex^ /lower case, tab 

xcj. , 

.LOX, ■ 

sol, rpb /skip over input routine 

sol, rpb /enter here 



rbk, dap rbx /read a block into buffer 



rbO, 
rbl, 



rbx, 



lac 


psl 


lio 


(72 


sad 


cas 


jmp 


tyc 


dac 


cas 


jmp 


tyb 


lac 


(rar 9s 
(74 


lio 


jmp 


dnl 


dap 


J. ex 


law 


7277 


jmp 


lcl 


dap 


lex 


law 


7236 


jda 


tys 


jmp 


• 


rpb 




rpb 




spi 


1 


jmp 


sol 


dio 


t4 


dap 


rbx 


init rbl, buf 


dap 


la 


dzm 


chi 


rpb 




dio 


t2 


dio 


t 


spi 




jmp 


lis+2 


rpb 




dio 


ch 


law 


i 1 


add 


ch 


sub 


t2 


and 


(777700 


sza 




jmp 


err 


rpb 




dio 


• 


lac 


i rbl 


adm 


chi 


idx 


rbl 


index t2, ch, rbO 


add 


chi 


add 


t 


rpb 




dio 


chi 


sad 


chi 


jmp 


• 



/start block read, 
/check for block format 



pur, 



pbb, 



pbl, 



pux, 

pb2, 

plo, 
pbw, 

pby, 



lac (356342 

jda tys 

lac (224434 

Jda tys 

jsp let 

tyi 

lai 

sas (char re 

Jirrp lis+2 

law 51 

arq 

jmp bus 

jsp let 

jmp rbk+1 

dap pb2 



lip fa 
jsp pbw 
jsp pv 
swp 

jsp pbw 
index fa, 
jmp pux 



/checksum error 



/type u c H for continue 



/punch read-in mode blocks 



t, pu2 



t, pbl 



dap pb2 
dzm t2 
lio fa 
jsp pbw 
lio t 
jsp pbw 

jsp pv 
swp 

jsp pbw 
index fa, 
lio t2 
jsp pbw 
feed 5 
jmp . 

jsp pev 
jmp pal+1 



dap pby 
repeat 3, ppb 
adm t2 
jmp . 



/punch binary block format 



/punch binary word 
rcl 6s 



/combined octal-decimal print subroutine 

opt, ■ 

dap opx 

dzm opl 
opa, lac opt 
opb, dac op2 

cli+swp-opr 

rcl Is 

div opsops, 10 

sas opl 

jmp opb 

sni 

lio (20 

tyo 

lac op2 

dac opl 

sas opt 

jmp opa 
opx, jmp • 
opl, ■ 

ci, , • 10000 
clO, 10 



/symbol print subroutine 

spt, dap spy 

lac sym 1 
and (177777 
jda spv 
jsp tys+1 
lac sym r 
jda spv 
jsp tys+1 

spy* jmp . 

spv, 

dap spx 

init spj, spd 

dzra tys 
spr, lio spv 

cla 

rcl Is 
spj, div 

• 

dio spv 

rar Is 

add ( spl-add 

dap .+1 

lid 

spa 

ril 6s 

lac ? tys 

rcl 6s 

dac tys 

idx spj 

sas (div spd+3 

jmp spr 
spx, Jmp • 

spd, 3100 

one, 1 

spl, flex 01' 
1 lex cj 
flex 45 
flex 67 
flex 89 
flex ab 
flex cd 
flex ef 
flex gh 
flex ij 
flex kl 
flex mn 
flex op 
flex qr 
flex st 
flex uv 
flex wx 
flex yz 
737200 . 



/dispatch table, LC, UC 



dtb, disp pis, pis /space 

letter 1, quo /l> u 

letter 2, sqo /2, 1 

letter 3, pbx /3>~ 

letter 4, daq /4,D 

letter 5, uni /5,V 

letter 6, isc /6,A 
letter 7, pul /7 ,< 

letter 10, ucS /8,> 

letter 11, fs /9>t 

disp err, err 
disp err, err 
disp err, err 
disp err, err 
disp err, err 
disp err, err 

letter 0, arw /0,-> 

disp bar, err /A? 

letter 34, smb /s 

letter 35, tbl /t 

letter 36, dec /u 

letter 37, vfy /v 

letter 40, wds /w ■ 

letter 4l, xec /x 

letter 42, rd /y 

letter 43, zro /z 

disp err, err 

disp com, eql / $>~ 

disp err, err 

disp err, err 

disp tab, tab /tab 

disp err, err 



disp pwd, err 



letter 23, 


jbk 


letter 24, 


kil 


letter 25, 


ttl 


letter 26, 


m 


letter 27, 


nws 


letter 30, 


oad 


letter 11, 


pra 



letter 32, q 
letter 33, rad 
disp err, err 
disp err, err 
disp min, pis 
disp def-, bas 
disp ovb, vt> 
disp vai, bac 

disp err, err 
letter 12, a 
letter 13, bk 
letter 14, ens 
letter 15, pun 
letter 16., eas 
letter 17, f 
letter 20, bgn 

letter 21, oct 
letter 22, ir 
disp lc, lc 
disp dot, del 
disp uc, uc 
disp bs, bs 
disp err, err 
disp or, cr 



/k 

/I 

/m 

/o 

/p 

/q 

/r 



yd 



'} 

/s 

/h 

/lower case 
A,x 

/upper case- 
/backspace 

/carriage return 



start 



W part 4 4-22-65 
/private variables • 



wrd, 





sym, 





chc, 





chi, 





1st, 





ch, 





syl. 





t* 





la, 


dlo 


fa. 


dlo 


rood, 





opsonin, 





op2, 





/constants 


c4, 


400000 


c77t 


77 


cOi, 


OdLQIOO 


c4# 


600000 


©3# 


3 


c2, 


020000 



*>vf, 



bkf, 

esp, 



dssm m 


dfi. 





loc, 

tas, 






tsf. 





lef, 





iif, 





bbf, 





cn3t 


•fUOOOO 


dff, 

lo# 
wc, 




• 
• 



/quantity being assembled 

/alpha symbol being assembled 

/character count 

/fO when letter or number has been 

/typed since last typeout or c«r* input 

Ao when letter in syllable, otherwise -0 

/character 

/syllable 

/temporary storage 

/last address 

/first address 

/mode, -0 for "type-in* 

/decimal number 



/punch, verify flop 

/0 - usually, set by zro 

/-0 - center dot 

/not 40 - continue in pv subroutine 

/breakpoint f xop 
/used by ssero routine 

/value for defining symbol 

/current location 

/address part for fetch or deposit 

/current register* instruction part 

A for register closed, tells dep and 

/fet subroutine to ignore 

/current examination flop 

/0 - external register 

/non-0 - internal register 

/current location flop 

/o - external 

/non-0 - internal 

/initial internal flop 

/0 - usually 

/non-0 - set when type A,I,M,B 

/B flop 

/0 - usually 

/-0 - when B typed, not affected by uc,lc 

/special proceed counter 

/deposit-fetch flop, dep, -0 fet 



ZBSt • 


6151-low 
lac tst+1-22 
lac tst+i 
630000 


*3#' 
buf+iOO/ 







p*# 
pc f 






ac* 
io* 

**&> 
msk, 

ul f 
bk±* 








-0 



6277 

-0 

repeat nbp-± # -0 


•+nbp/ 
bkO, 


-0 




30 



c# 




constants 




start lis 





/reader buffer 



/Internal registers* 



/switch for legal proceed 
/if legal, has proceed address 



